home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2003 #12 / Amiga Plus CD - 2003 - No. 12.iso / AmigaPlus / Tools / Virus / VirusExecutor / Install_VE < prev    next >
Text File  |  2003-11-20  |  3KB  |  129 lines
  1. ; ************************************************************************
  2. ;
  3. ; $VER: Install 2.25 (02.07.2002)
  4. ; 
  5. ; Install script for VirusExecutor v2.25+ Copyright © 2002 Jan Erik Olausen
  6. ;
  7. ; ************************************************************************
  8.  
  9. (set old_level @user-level)
  10. (set @default-dest "")
  11. (set #wbversion 0)
  12. (set #wbversion (getversion "libs:version.library"))
  13. (set #wbversion (/ #wbversion 65536) )
  14.  
  15. ;=============================================================================
  16. ; Make sure we are running under a 2.04 ROM
  17.  
  18. (if (< (/ (getversion) 65536) 37)
  19. (
  20.     (abort #bad-kick)
  21. ))
  22.  
  23. (set destination
  24.     (tackon
  25.         (askdir
  26.             (prompt "Please select the path where you want to install\nthe VirusExecutor program.\n\nA drawer named VirusExecutor will be created there.\n")
  27.             (help @askdir-help)
  28.             (default "Work:")
  29.             (newpath)
  30.         )
  31.         "VirusExecutor"
  32.     )
  33. )
  34. (set @default-dest destination)
  35.  
  36. (copyfiles
  37.     (source "")
  38.     (dest destination)
  39.     (pattern "VirusExecutor#?")
  40.     (infos)
  41.     
  42. )
  43.  
  44. ;************************
  45. ;** VirusExecutor.info **
  46. ;************************
  47.  
  48. (if (< #wbversion 44)    ; Not OS 3.5?
  49.     (copyfiles
  50.         (source "Icons/Standard/VirusExecutor.info")
  51.         (dest (destination))
  52.     )
  53. )
  54. (if (> #wbversion 43)    ; Yes! OS 3.5
  55.     (copyfiles
  56.         (source "Icons/Glow/VirusExecutor.info")
  57.         (dest (destination))
  58.     )
  59. )
  60.  
  61. ;*********************
  62. ;** Libraries stuff **
  63. ;*********************
  64.  
  65. (copylib
  66.     (prompt "This will copy the 'xvs.library' to your LIBS: directory.")
  67.     (source "libs/xvs.library")
  68.     (help "VirusExecutor uses the 'xvs.library' to find and remove virus.")
  69.     (confirm)
  70.     (dest "LIBS:")
  71. )
  72.  
  73. ;******************
  74. ;** Locale stuff **
  75. ;******************
  76.  
  77.       (set lang
  78.         (askoptions
  79.           (prompt "Which languages do want installed?")
  80.         (help "Checkmark the languages you want installed, and click Proceed.")
  81.           (choices "Czech" "Dansk" "Deutsch" "Español" "Français" "Italiano" "Magyar" "Nederlands" "Norsk" "Polski" "Português" "Russian" "Slovak" "Svenska")
  82.           (default 0)
  83.       ))
  84.  
  85.       (set n 0)
  86.  
  87.       (while (set language (select n "Czech" "Dansk" "Deutsch" "Español" "Français" "Italiano" "Magyar" "Nederlands" "Norsk" "Polski" "Português" "Russian" "Slovak" "Svenska" ""))
  88.       (
  89.           (if (IN lang n)
  90.              (copyfiles
  91.                   (source (cat "catalogs/" language "/VirusExecutor.catalog" ))
  92.                   (dest (cat "LOCALE:catalogs/" language ))
  93.                   (all)
  94.               )
  95.           )
  96.           (set n (+ n 1))
  97.       ))
  98.  
  99. ;*****************
  100. ;** Guide stuff **
  101. ;*****************
  102.  
  103. (set guide
  104.    (askoptions
  105.       (prompt "What guide would you like to install?")
  106.       (help
  107.         "This will install the VirusExecutor docs."
  108.       )
  109.       (choices "English" "Français (Not updated!)")
  110.       (default 1)
  111.    )
  112. )
  113.  
  114. (if (bitand 1 guide)
  115.     (copyfiles
  116.         (source "Docs/VirusExecutor.guide")
  117.         (dest (cat destination))
  118.         (infos)
  119.     )
  120. )
  121.  
  122. (if (bitand 2 guide)
  123.     (copyfiles
  124.         (source "Docs/VirusExecutor_fr.guide")
  125.         (dest (cat destination))
  126.         (infos)
  127.     )
  128. )
  129.